-- stack: in.2
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2598
-- card count: 6
-- first card id: 4210
-- list block id: 2113
-- print block id: 3874
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 110336 bytes
-- stack block size: 14848 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack

  hide menuBar
  Hide tool window
  set scroll of card field "Instructions" of card "First" to 0
  Set cursor to busy
  Set userLevel to 5
  Set the visible of card field "mask return" of card "first" to true

  --  NECESSARY TO COMPENSATE FOR CHANGES IN FIELDS
  --  IN CARD  "PLANETS" WHEN STACK IS CONVERTED TO HYPERCARD 2.0
  --  WITHOUT THIS EXTRA STEP, ONE LINE OF DATA WOULD WRAP INTO 2 LINES

  If (first char of the version) is 2
  then
  if dontWrap of cd field 1 of card "planets" is false
  then
  repeat with f = 1 to 17
    set cursor to busy
    set dontWrap of cd field f of card "planets" to true
  end repeat
end if
end if

-- "It's only a paper moon"
If (highLight of card button "Turn off sound" of card "First") is false then Play harpsichord tempo 200 "0e d4q de d5e dq de cq b4e ah 0e 0e d4q de c5 cq ce b4q ae gh" && "0q d4q de d5e dq d#e eq ce a4q ge f#q e5e dq f#4e gh"

Set cursor to busy
--
If HighLight of card button "Start with birth data entry" of card "First" then
  go to card "Data Entry"
  Set the visible of card field "mask return" of card "first" to false
  Set the visible of card field "mask birth data entry" of card "first" to false
else
  go to card "First"
end if

Set cursor to busy

--  *************************************************
--  **  Insert current time and date for Stockton  **
--  **  User: change this to your city if you wish **
--  *************************************************
--
Put "Stockton, CA" into card field "Place" of card "Data entry"
--
Set cursor to busy
--
Put "37n58" into card field "Latitude" of card "Data entry"
Put "121w17" into card field "Longitude" of card "Data entry"

Put "08:00" into card field "Zone" of card "Data entry"

Set cursor to busy
Put "First enter name" into card field "Name" of card "Data entry"

Set cursor to busy
--
put the seconds into date
convert date to dateItems
put item 2 of date into monthNumber
if monthNumber >= 4 and monthNumber <= 10
then set hilite of card button "Daylight Savings" of card "Data entry" to true
else set hilite of card button "Daylight Savings" of card "Data entry" to false
Set cursor to busy
--
put item 3 of date into dayNumber
put item 1 of date into yearNumber
Set cursor to busy
--
set hilite of card button "Unknown birthtime" of card "Data entry" to false
Set cursor to busy
--
put item 4 of date into hourNumber
Set cursor to busy
--
if hourNumber < 12 then
  set hilite of card button "pm" of card "Data entry" to false
  set hilite of card button "am" of card "Data entry" to true
end if

Set cursor to busy
--
if hourNumber = 12 then
  set hilite of card button "pm" of card "Data entry" to true
  set hilite of card button "am" of card "Data entry" to false
end if
Set cursor to busy
--
If hourNumber > 12 then
  Subtract 12 from hourNumber
  set hilite of card button "pm" of card "Data entry" to true
  set hilite of card button "am" of card "Data entry" to false
end if
Set cursor to busy
--
put item 5 of date into minuteNumber
Set cursor to busy
--
put monthNumber into card field "monthNumber" of card "Data entry"

Set cursor to busy
--
put dayNumber into card field "dayNumber" of card "Data entry"
Set cursor to busy
--
put yearNumber into card field "yearNumber" of card "Data entry"
Set cursor to busy
--
put hourNumber into card field "hourNumber" of card "Data entry"
Set cursor to busy
--
if minuteNumber < 10 then put "0" & minuteNumber into minuteNumber
put minuteNumber into card field "minuteNumber" of card "Data entry"
Set cursor to busy
--
Set hilite of card button "Placidus" of card "Data Entry" to true
Set hilite of card button "Koch" of card "Data Entry" to false
Set hilite of card button "Equal" of card "Data Entry" to false

end openStack

--==================================================================

on mouseWithin -- blink cursor to cross when over button
  if word 2 of the name of target is "button"
  then set cursor to cross
end mouseWithin

--=====================================================================

function DegreesToSign degreesIn

put "Aries,Taurus,Gemini,Cancer,Leo,Virgo,Libra,Scorpio," & "Sagittarius,Capricorn,Aquarius,Pisces" into signList
Put "∑®†¥øπ“‘åß∂ƒ" into signSymbols

Put (degreesIn mod 360) into degreesIn -- take care of <0 and >360
put (trunc(degreesIn) div 30) + 1 into signNumber
put trunc(degreesIn mod 30) into degrees
put round((degreesIn - ((signNumber-1)*30 + degrees))*60) into minutes

IF minutes = 60 then
  if degrees = 29 THEN
    put 0 into degrees
    put 0 into minutes
    add 1 to signNumber
  else -- degrees < 29
    add 1 to degrees
    put 0 into minutes
  end if

  IF signNumber = 13 THEN put 1 into signNumber
  --
  IF degrees = 30 THEN
    put 0 into degree
    add 1 to signNumber
    IF signNumber = 13 THEN put 1 into signNumber
  end if
end if

set numberFormat to "00."
Put degrees & character signNumber of signSymbols & minutes into outSTR
set numberFormat to "0.##########"
return outStr

end DegreesToSign

--================================================================